home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / VIC3V2.422 < prev    next >
Text File  |  1993-03-15  |  2KB  |  94 lines
  1. feedback.mod made by Activ!
  2. Activ #64 @11
  3. Wed Mar 10 23:19:43 1993
  4. ╔════════════════════════════════════════════════════════════════════════════╗
  5. ║ MOD: VIC3v2.mod                                                            ║
  6. ║ AUTHOR: Activ 1@7663 IceNET                                                ║
  7. ║ DESCRIPTION: Will let users do last minute things before they log off.     ║
  8. ║ WWIV VER: Tested on 4.21a, but might work on other versions.               ║
  9. ║ DIFFICULTY: █░░░░░  (block it!)                                            ║
  10. ╚════════════════════════════════════════════════════════════════════════════╝
  11.  
  12.  
  13. STEP 1:  Backup that source code
  14.  
  15. STEP 2:  Open BBS.C and search for case 'O':
  16.  
  17. STEP 3:  Replace that case with this one:
  18.  
  19.  
  20.    case 'O':
  21.        nl();
  22.        nl();
  23.        prt(5,"Log Off the BBs? ");
  24.        helpl=12;
  25.        if (yn()) {
  26.          outchr(12);
  27.          npr("Time on = %s\r\n",ctim(timer()-timeon));
  28.          nl();
  29.          nl();
  30.          tleft(1);
  31.          ansic(2);
  32.          outstr("Would YOU Like to do Last Second Things?: ");
  33.          ch=onek("YN");
  34.          switch(ch) {
  35.            case 'N':
  36.              prt(6,"\r\nOk, No extra access for you!\r\n");
  37.              printfile("LOGOFF");
  38.              hangup=1;
  39.              break;
  40.            case 'Y':
  41.              nl();
  42.              prt(1,"What would you like to do?\r\n");
  43.              nl();
  44.              nl();
  45.              prt(3,"  (F)  Send Feedback\r\n");
  46.              prt(2,"  (B)  Go Back to the Paramount BBs\r\n");
  47.              prt(5,"  (E)  E-Mail a User\r\n");
  48.              prt(2,"  (R)  Read 716 Area Code BBs List\r\n");
  49.              prt(7,"  (Q)  Quit and Log Off\r\r\n");
  50.              nl();
  51.              tleft(1);
  52.              ansic(4);
  53.              outstr("--> ");
  54.              ch=onek("FBERQ");
  55.              switch(ch) {
  56.             case 'F':
  57.               email(1,0,0,0);
  58.               printfile("LOGOFF");
  59.               hangup=1;
  60.               break;
  61.             case 'B':
  62.               break;
  63.             case 'E':
  64.               send_email();
  65.               printfile("LOGOFF");
  66.               hangup=1;
  67.               break;
  68.             case 'R':
  69.               printfile("716");
  70.               printfile("LOGOFF");
  71.               hangup=1;
  72.               break;
  73.             case 'Q':
  74.               printfile("LOGOFF");
  75.               hangup=1;
  76.               break;
  77.             }
  78.             printfile("LOGOFF");
  79.             hangup=1;
  80.        }
  81. }
  82.  
  83.  
  84. STEP 4:  Compile and run.
  85.  
  86. STEP 5:  Make a file called '716' in your gfiles, and put your area code
  87.      bbs's iun there.
  88.  
  89.  
  90. STEP 5:  E-Mail me (1@7663 IceNET) and let me know how it goes!
  91.  
  92.                     Activ!
  93.  
  94.